Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/GWU Demos/random.ads

Text File | 1993-10-09 | 414 b | 19 lines | [TEXT/GADA]

PACKAGE Random IS

-- Simple pseudo-random number generator package.
-- Adapated from the Ada literature by
-- Michael B. Feldman, The George Washington University, November 1990.

  PROCEDURE Set_Seed (N : Positive);

  FUNCTION  Unit_Random RETURN Float;

    --returns a float >=0.0 and <1.0

  FUNCTION  Random_Int (N : Positive) RETURN Positive;

    --return a random integer in the range 1..N

END Random;